Sub ԰ȭ()

    Rows("16:17").Select
    Selection.EntireRow.Hidden = False
    Rows("18:18").Select
    Selection.EntireRow.Hidden = True
    
End Sub